home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / PORTS.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-09-26  |  1.1 KB  |  65 lines
  1. $INCLUDE "REGNAMES.INC"
  2. DEF SEG = &H40
  3. CLS
  4. ?"Parallel:"
  5. j=1
  6. FOR i=8 TO 14 STEP 2
  7.  LPT(j)=PEEKI(i)
  8.  PRINT "  LPT"+HEX$(j)+"=$"+HEX$(LPT(j))
  9.  lt(j)=PEEK(&H78+(j-1))
  10.  j=j+1
  11. NEXT
  12. CALL Send(1,LPT(1),LPT(2),LPT(3),LPT(4))
  13. POKEI 8,a
  14. POKEI 10,b
  15. POKEI 12,c
  16. POKEI 14,d
  17. CALL Send(2,lt(1),lt(2),lt(3),lt(4))
  18. ?""
  19. ?"Seriell:"
  20. j=1
  21. FOR i=0 TO 7 STEP 2
  22.  xCOM(j)=PEEKI(i)
  23.  PRINT "  COM"+HEX$(j)+"=$"+HEX$(xCOM(j))
  24.  ct(j)=PEEK(&H7C+(j-1))
  25.  j=j+1
  26. NEXT
  27. CALL Send(3,xCOM(1),xCOM(2),xCOM(3),xCOM(4))
  28. POKEI 0,a
  29. POKEI 2,b
  30. POKEI 4,c
  31. POKEI 6,d
  32. CALL Send(4,ct(1),ct(2),ct(3),ct(4))
  33. CALL Send(10,0,0,0,0)
  34. END
  35.  
  36. SUB Send(cmd,a1,a2,a3,a4) SHARED
  37.  DEF SEG = &HD400
  38.  REG %AX,(1*256)+30
  39.  CALL INTERRUPT &H0B
  40.  janus=REG(%DI)
  41.  IF janus=-1 THEN
  42.   CLS
  43.   BEEP
  44.   ?"Janus-Fehler !!!"
  45.   END
  46.  END IF
  47.  janus=janus+16384
  48.  POKEI janus+0,cmd
  49.  POKEI janus+2,a1
  50.  POKEI janus+4,a2
  51.  POKEI janus+6,a3
  52.  POKEI janus+8,a4
  53.  
  54.  REG %AX,(7*256)+30
  55.  CALL INTERRUPT &H0B
  56.  REG %AX,(8*256)+30
  57.  CALL INTERRUPT &H0B
  58.  DEF SEG = &HD400
  59.  a=PEEKI(janus+2)
  60.  b=PEEKI(janus+4)
  61.  c=PEEKI(janus+6)
  62.  d=PEEKI(janus+8)
  63.  DEF SEG = &H40
  64. END SUB
  65.